home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 July / Ahoy_Magazine_86-07_1986_Double_L.d64 / screen sleuth (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  50 lines
  1. 10 rem *** screen sleuth *** buck childress (02/12/86) ***
  2. 20 rem *** p.o. box 13575 salem, or 97309 ***
  3. 25 poke53280,6:poke53281,0:poke646,3
  4. 30 printchr$(147)"loading and checking data...":print:j=49152:l=90:c=11
  5. 40 forb=0toc:reada:pokej+b,a:x=x+a:nextb:reada
  6. 50 ifx<>athenprint"error in data line"l:end
  7. 60 x=0:j=j+12:l=l+10:ifl<460then40
  8. 70 ifl=460thenc=13:goto40
  9. 80 print"data ok and loaded...":print:print"sys 49152 to activate..."
  10. 85 print"   place cursor over any char. on the   screen, and hit run/stop key."
  11. 86 print"   see july issue of ahoy! for more     details..."
  12. 90 data173,20,3,174,21,3,224,192,240,30,141,208,1429
  13. 100 data193,142,209,193,169,41,162,192,120,141,20,3,1585
  14. 110 data142,21,3,142,215,193,142,216,193,142,219,193,1821
  15. 120 data142,220,193,88,96,173,220,193,201,127,240,68,1961
  16. 130 data173,215,193,201,127,208,48,133,204,173,141,2,1818
  17. 140 data208,8,32,159,255,32,228,255,240,46,169,127,1759
  18. 150 data141,220,193,160,39,140,215,193,185,224,193,153,2056
  19. 160 data0,4,185,16,194,153,0,216,136,16,241,32,1193
  20. 170 data225,255,240,251,76,146,193,165,207,208,9,165,2140
  21. 180 data145,201,127,208,6,141,219,193,108,208,193,173,1922
  22. 190 data219,193,201,127,208,246,141,215,193,141,220,193,2297
  23. 200 data165,206,174,135,2,141,217,193,201,32,208,3,1677
  24. 210 data174,33,208,142,218,193,169,0,162,4,133,251,1687
  25. 220 data133,252,134,253,165,211,208,4,165,214,240,16,1995
  26. 230 data169,157,133,204,32,210,255,230,251,208,237,230,2316
  27. 240 data252,76,160,192,160,39,132,204,185,0,4,153,1557
  28. 250 data224,193,185,0,216,41,15,153,16,194,136,16,1389
  29. 260 data239,173,134,2,141,212,193,173,33,208,41,15,1564
  30. 270 data141,134,2,160,39,169,32,153,0,4,136,16,986
  31. 280 data250,200,132,199,133,254,32,210,255,173,0,4,1842
  32. 290 data205,217,193,240,57,169,20,32,210,255,230,254,2082
  33. 300 data165,254,201,128,144,232,201,160,176,5,169,160,1995
  34. 310 data76,232,192,201,192,144,219,169,18,205,216,193,2057
  35. 320 data240,10,141,216,193,133,199,169,32,76,232,192,1833
  36. 330 data32,179,193,32,168,193,169,63,32,210,255,76,1602
  37. 340 data68,193,32,179,193,169,0,166,254,32,160,193,1639
  38. 350 data173,216,193,201,18,208,5,169,42,32,210,255,1722
  39. 360 data169,0,174,217,193,32,160,193,173,218,193,41,1763
  40. 370 data15,170,169,0,32,160,193,32,94,193,169,216,1443
  41. 380 data133,253,166,251,165,252,24,101,253,32,160,193,1983
  42. 390 data165,253,48,1,96,32,197,193,173,212,193,141,1704
  43. 400 data134,2,165,251,208,4,165,252,240,20,169,29,1639
  44. 410 data133,204,32,210,255,198,251,165,251,201,255,208,2363
  45. 420 data233,198,252,76,118,193,169,192,141,216,193,141,2122
  46. 430 data219,193,141,220,193,108,208,193,72,32,168,193,1940
  47. 440 data104,76,205,189,169,32,160,2,32,210,255,136,1570
  48. 450 data16,250,96,162,0,173,33,208,41,15,208,1,1203
  49. 460 data232,142,134,2,169,13,32,210,255,169,19,76,210,255,1918
  50.